﻿Public Class clsDLMst
    Public Function selectFlbDLByBarCode(dl_no As String) As DataTable
        Dim szSql As String = ""
        szSql &= "select * from sf.t_mst_dl "
        szSql &= " where dl_no = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, dl_no)
        If IsNothing(dt) Then
            selectFlbDLByBarCode = New DataTable
        Else
            selectFlbDLByBarCode = dt
        End If
    End Function
End Class
